home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / 3d / raystorm-complete / examples / exa.lha / arexx / sun.ray < prev    next >
Text File  |  1996-07-27  |  1KB  |  63 lines
  1. /***************
  2.  * NAME:        sun.ray
  3.  * DESCRIPTION: Sun coming up behind a planet with lens flares
  4.  * AUTHOR:      Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.    address COMMAND 'stack 8192'
  13.    address COMMAND 'run >NIL: <NIL: /RayStorm'
  14.    address COMMAND 'stack 4096'
  15.    address COMMAND WaitForPort RAYSTORM
  16. END
  17.  
  18. address RAYSTORM
  19.  
  20. 'TEXTUREPATH /textures'
  21. 'OBJECTPATH /objects'
  22. 'BRUSHPATH /brushes/backdrops'
  23.  
  24. 'SETSCREEN 160 128'
  25. 'SETCAMERA <-50,0,-500> <-50,0,0> <0,1,0> 25 20'
  26. 'SETWORLD [0,0,0] BACKDROP=stars.png'
  27. 'POINTLIGHT <0,0,150> [255,150,100]'
  28. 'POINTLIGHT <0,0,300> [255,150,100]'
  29.  
  30. 'LOADOBJ sun_disk.iob'
  31.  
  32. 'NEWSURFACE PLANET BRIGHT'
  33. 'DIFFUSE [5,10,15]'
  34.  
  35. 'SPHERE PLANET <-45,-45,90> 50'
  36.  
  37. 'NEWSURFACE SUN BRIGHT'
  38.  
  39. 'SPHERE SUN <0,0,0> 15'
  40.  
  41. 'NEWSURFACE FLARE BRIGHT'
  42. 'DIFFUSE [255,150,100]'
  43. 'SPECULAR [0,0,0]'
  44. 'TRANSPAR [235,235,235]'
  45.  
  46. 'SPHERE FLARE <-50,0,0> 5'
  47. 'SPHERE FLARE <-80,0,0> 15'
  48. 'SPHERE FLARE <-90,0,0> 8'
  49.  
  50. STARTRENDER
  51.  
  52. 'SAVEPIC sun.iff'
  53.  
  54. CLEANUP
  55.  
  56. exit 0
  57.  
  58. error:
  59. say "Error" rc "in line" sigl ":"
  60. GETERRORSTR rc
  61. say result
  62. exit 0
  63.